Const IDLE = 0
Const HOT = 1
Const COLD = 2

Sub Form_Load ()
   ' Start the server application
   e% = Shell("filebmp.exe", 1)
   '
   ' Pause with msg to give filebmp a chance to get...
   ' running.
   MsgBox "Continue when DDE BMP Server is running", 0, "Pausing"
   '
   ' Now connect the local bitmap with the server
   LocalBMP.LinkMode = IDLE
   LocalBMP.LinkTopic = "FileBMP|DDE"
   LocalBMP.LinkItem = "BMP"
   '
   ' Now connect the file display with the server
   Path.LinkMode = IDLE
   Path.LinkTopic = "FileBMP|DDE"
   Path.LinkItem = "FName"
   '
   ' Start the DDE links working HOT
   Path.LinkMode = HOT
   LocalBMP.LinkMode = HOT
End Sub

Sub Form_Unload (Cancel As Integer)
   LocalBMP.LinkMode = 0               ' disable link
End Sub

Sub NextBMP_Click ()
   ' Ask the server for the next BMP file
   LocalBMP.LinkExecute "NextFilePlease"
End Sub